home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 201-220 / scopedisk202 / bbbbs2 / rexx / setup.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  732b  |  27 lines
  1. /** setup.rexx
  2. *
  3. *   This adds various libraries to ARexx's list, including
  4. *   QuickSort. Run this in your startup sequence or use it
  5. *   as an example.
  6. *
  7. **/
  8. check = addlib('rexxsupport.library',0,-30,0) 
  9. check = addlib('rexxmathlib.library',0,-30,0)
  10. check = addlib('rexxarplib.library',0,-30,0)
  11.  
  12. /*
  13. *   Add the QuickSort port, so we can use QSORT.
  14. *   First check if the port is already up. If not, run QuickSort
  15. *   and wait for the port to be there.
  16. */
  17. if ~showlist('p','QuickSortPort') then
  18. do
  19.    ADDRESS COMMAND "run quicksort >NIL:"
  20.    do i = 1 to 10
  21.       if ~showlist('p','QuickSortPort') then call delay 20
  22.       else leave i
  23.    end
  24.    if showlist('p','QuickSortPort') then call addlib('QuickSortPort',-30)   
  25. end
  26. exit 0
  27.